home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / tjockdem.arc / DEMO4.ARC / MENUDEM2.PAS < prev    next >
Pascal/Delphi Source File  |  1989-02-03  |  2KB  |  61 lines
  1. Program MenuTTT5_Demo_2;
  2.  
  3. Uses CRT, FastTTT5, DOS, WinTTT5, KeyTTT5, MenuTTT5;
  4.  
  5. var
  6.   M : menu_record;
  7.   Choice, Retcode : integer;
  8.   Ch : char;
  9.  
  10. Procedure Define_M;
  11. begin
  12.     Menu_Set(M);
  13.     With M do
  14.     begin
  15.         Heading1 := 'Missile Sites';
  16.         Heading2 := 'Main Menu';
  17.         Topic[1]  := '  Help';
  18.         Topic[2]  := '  Load Database';
  19.         Topic[3]  := '  Re-index Database ';
  20.         Topic[4]  := '  Input new Data';
  21.         Topic[5]  := '  Save Database';
  22.         Topic[6]  := '  Print Reports';
  23.         Topic[7]  := '  Quit';
  24.         TotalPicks := 7;
  25.         PicksPerLine := 1;
  26.         AddPrefix := 4;
  27.         TopleftXY[1] := 0;        {auto center}
  28.         TopLeftXY[2] := 4;
  29.         BoxType := 5;
  30.         Margins := 5;
  31.         Colors[1] := white;
  32.         Colors[2] := blue;
  33.         Colors[3] := lightgray;
  34.         Colors[4] := red;
  35.         Colors[5] := cyan;
  36.         AllowEsc := true;
  37.     end;
  38. end;
  39.  
  40. begin
  41.     Fillscreen(1,1,80,22,white,blue,chr(177));
  42.     ClearText(1,23,80,25,white,blue);
  43.     WriteCenter(24,yellow,blue,'TechnoJock''s Turbo Toolkit');
  44.     Choice := 1;
  45.     Define_M;
  46.     DisplayMenu(M,true,Choice,Retcode);
  47.     writeln;
  48.     GotoXY(1,20);
  49.     If Retcode = 0 then
  50.        Writeln('You chose option ',Choice)
  51.     else
  52.        Writeln('You escaped!');
  53.     DelayKey(3000);
  54.     Reset_StartUp_Mode;
  55.     Clrscr;
  56.     WriteAT(1,1,white,black,'Run DemoTTT.exe for the main demo program');
  57.     WriteAT(1,2,white,black,'TechnoJock''s Turbo Toolkit v5.0');
  58.     GotoXY(1,5);
  59. end.
  60.  
  61.